home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / asmsrc / mischards.lha / SourceCode / Blox.s next >
Text File  |  1980-02-20  |  16KB  |  1,148 lines

  1.  
  2.     Opt    c-
  3.  
  4.     Section    "Psykos Blox Code",Code_c
  5.  
  6. Start    Movem.l    d0-d7/a0-a6,-(sp)
  7.     Bsr    KillSys
  8.  
  9.     Lea    PicBase(pc),a0
  10.     Move.l    0,d0
  11.     Move.l    #"FUCK",0
  12.     Cmpi.l    #"FUCK",$80000
  13.     Beq    NoMegChip
  14.     
  15.     Move.l    #$e0000,(a0)
  16.     Bra    Reset0Long
  17.  
  18. NoMegChip    Move.l    #$70000,(a0)
  19. Reset0Long    Move.l    d0,0
  20.     
  21.     Move.l    PicBase(pc),$Dff080
  22.     Move.w    #$83c0,$Dff096
  23.  
  24.     Bsr    DoCopy
  25.     Bsr    SetCopWaits
  26.     Bsr    DoBPX
  27.  
  28. Loop    Lea    XPos0(pc),a5
  29.     Moveq    #4,d7
  30.     Moveq    #1,d0
  31.     
  32. AddIncLoop    Add.w    d0,(a5)+
  33.     Add.w    d0,(a5)+
  34.     Addq    #1,d0
  35.     Dbf    d7,AddIncLoop
  36.  
  37.     Lea    XPos0(pc),a5
  38.     Moveq    #4,d7    
  39. AddTrackLoop    Bsr    TrackMouse    
  40.     Add.w    d0,(a5)+
  41.     Add.w    d1,(a5)+
  42.     Dbf    d7,AddTrackLoop
  43.     
  44.     Lea    BMap0(pc),a0
  45.     Move.l    PicBase(pc),a1
  46.     Lea    $1b30(a1),a1
  47.     Move.w    XPos0(pc),d0
  48.     Bsr    SetBMaps
  49.     Lea    BMap5(pc),a0
  50.     Move.l    PicBase(pc),a1
  51.     Lea    $1b80(a1),a1
  52.     Move.w    XPos0(pc),d0
  53.     Bsr    SetBMaps
  54.         
  55.     Lea    BMap1(pc),a0
  56.     Move.l    PicBase(pc),a1
  57.     Lea    $1c30(a1),a1
  58.     Move.w    XPos1(pc),d0    
  59.     Bsr    SetBMaps
  60.     
  61.     Lea    BMap2(pc),a0
  62.     Move.l    PicBase(pc),a1
  63.     Lea    $1c80(a1),a1
  64.     Move.w    XPos2(pc),d0    
  65.     Bsr    SetBMaps
  66.     
  67.     Lea    BMap3(pc),a0
  68.     Move.l    PicBase(pc),a1
  69.     Lea    $1d30(a1),a1
  70.     Move.w    XPos3(pc),d0    
  71.     Bsr    SetBMaps
  72.     
  73.     Lea    BMap4(pc),a0
  74.     Move.l    PicBase(pc),a1
  75.     Lea    $1d80(a1),a1
  76.     Move.w    XPos4(pc),d0    
  77.     Bsr    SetBMaps
  78.         
  79.     Lea    BP0List(pc),a0
  80.     Move.l    PicBase(pc),a1
  81.     Lea    $cc(a1),a1
  82.     Move.w    YPos0(pc),d2
  83.     And.w    #$1f,d2
  84.     Bsr    DoYMap
  85.     Bsr    Blitter1
  86.  
  87.     Lea    BP1List(pc),a0
  88.     Move.l    PicBase(pc),a1
  89.     Lea    $cc+4(a1),a1
  90.     Move.w    YPos1(pc),d2
  91.     And.w    #$1f,d2
  92.     Bsr    DoYMap
  93.     Bsr    Blitter1
  94.  
  95.     Lea    BP2List(pc),a0
  96.     Move.l    PicBase(pc),a1
  97.     Lea    $cc+8(a1),a1
  98.     Move.w    YPos2(pc),d2
  99.     And.w    #$3f,d2
  100.     Bsr    DoYMap
  101.     Bsr    Blitter1
  102.  
  103.     Lea    BP3List(pc),a0
  104.     Move.l    PicBase(pc),a1
  105.     Lea    $cc+12(a1),a1
  106.     Move.w    YPos3(pc),d2
  107.     And.w    #$3f,d2
  108.     Bsr    DoYMap
  109.     Bsr    Blitter2
  110.  
  111.     Lea    BP4List(pc),a0
  112.     Move.l    PicBase(pc),a1
  113.     Lea    $cc+16(a1),a1
  114.     Move.w    YPos4(pc),d2
  115.     Bsr    DoYMap
  116.     Bsr    Blitter3
  117.  
  118. XLoop    Bsr    VBL
  119.  
  120.     Btst    #6,$Bfe001
  121.     Bne    Loop
  122. Xit    Bsr    ReturnSys
  123.     Movem.l    (sp)+,d0-d7/a0-a6
  124.     Rts
  125.  
  126. DoBPX    Move.l    PicBase(pc),d0
  127.     Move.l    d0,a0
  128.     Lea    $ae(a0),a0
  129.     Swap    d0
  130.     Move.w    d0,00(a0)
  131.     Move.w    d0,04(a0)
  132.     Move.w    d0,08(a0)
  133.     Move.w    d0,12(a0)
  134.     Move.w    d0,16(a0)
  135.     Rts
  136.  
  137. DoYMap    Moveq    #0,d0
  138.     Move.w    d2,d0
  139.     And.w    #$ff,d0
  140.     Asl.l    #3,d0
  141.     Add.l    d0,a0
  142.     Rts
  143.  
  144. VBL    Move.l    $Dff004,d0
  145.     And.l    #$1ff00,d0
  146.     Cmpi.l    #$12800,d0
  147.     Bne    VBL
  148.     Rts
  149.     
  150. Blitter1    Move.w    #3,d7
  151.     Lea    $Dff000,a6
  152. DBXT    Bsr    BWait
  153.     Move.l    a0,BltApth(a6)
  154.     Move.l    a1,BltDpth(a6)
  155.     Move.w    #0,BltAMod(a6)    
  156.     Move.w    #20,BltDMod(a6)    
  157.     Move.l    #$ffffffff,BltAFWM(a6)
  158.     Move.l    #$09f00000,BltCon0(a6)
  159.     Move.w    #(64*64)+2,BltSize(a6)
  160.     Add.l    #24*64,a1
  161.     Dbf    d7,DBXT
  162.     Bsr    BWait
  163.     Move.l    a0,BltApth(a6)
  164.     Move.l    a1,BltDpth(a6)
  165.     Move.w    #0,BltAMod(a6)    
  166.     Move.w    #20,BltDMod(a6)    
  167.     Move.l    #$ffffffff,BltAFWM(a6)
  168.     Move.l    #$09f00000,BltCon0(a6)
  169.     Move.w    #(26*64)+2,BltSize(a6)
  170.     Rts
  171.  
  172. Blitter2    Move.w    #1,d7
  173.     Lea    $Dff000,a6
  174. DBXT1    Bsr    BWait
  175.     Move.l    a0,BltApth(a6)
  176.     Move.l    a1,BltDpth(a6)
  177.     Move.w    #0,BltAMod(a6)    
  178.     Move.w    #20,BltDMod(a6)    
  179.     Move.l    #$ffffffff,BltAFWM(a6)
  180.     Move.l    #$09f00000,BltCon0(a6)
  181.     Move.w    #(128*64)+2,BltSize(a6)
  182.     Add.l    #24*128,a1
  183.     Dbf    d7,DBXT1
  184.     Bsr    BWait
  185.     Move.l    a0,BltApth(a6)
  186.     Move.l    a1,BltDpth(a6)
  187.     Move.w    #0,BltAMod(a6)    
  188.     Move.w    #20,BltDMod(a6)    
  189.     Move.l    #$ffffffff,BltAFWM(a6)
  190.     Move.l    #$09f00000,BltCon0(a6)
  191.     Move.w    #(26*64)+2,BltSize(a6)
  192.     Rts
  193.  
  194. Blitter3    Lea    $Dff000,a6
  195.     Bsr    BWait
  196.     Move.l    a0,BltApth(a6)
  197.     Move.l    a1,BltDpth(a6)
  198.     Move.w    #0,BltAMod(a6)    
  199.     Move.w    #20,BltDMod(a6)    
  200.     Move.l    #$ffffffff,BltAFWM(a6)
  201.     Move.l    #$09f00000,BltCon0(a6)
  202.     Move.w    #(256*64)+2,BltSize(a6)
  203.     Add.l    #24*256,a1
  204.     Bsr    BWait
  205.     Move.l    a0,BltApth(a6)
  206.     Move.l    a1,BltDpth(a6)
  207.     Move.w    #0,BltAMod(a6)    
  208.     Move.w    #20,BltDMod(a6)    
  209.     Move.l    #$ffffffff,BltAFWM(a6)
  210.     Move.l    #$09f00000,BltCon0(a6)
  211.     Move.w    #(24*64)+2,BltSize(a6)
  212.     Rts
  213.  
  214. Copy    Lea    $Dff000,a6
  215.     Bsr    BWait
  216.     Move.l    a0,BltApth(a6)
  217.     Move.l    a1,BltDpth(a6)
  218.     Move.w    #0,BltAMod(a6)    
  219.     Move.w    #0,BltDMod(a6)    
  220.     Move.l    #$ffffffff,BltAFWM(a6)
  221.     Move.l    #$09f00000,BltCon0(a6)
  222.     And.l    #$1ff,d0
  223.     Asl.w    #6,d0
  224.     Bset    #0,d0
  225.     Move.w    d0,BltSize(a6)
  226.     Rts
  227.  
  228. BWait    Btst    #14,$Dff002
  229.     Bne    BWait
  230.     Rts
  231.  
  232. DoCopy    Move.w    #51*2,d0
  233.     Lea    CopperList1(pc),a0
  234.     Move.l    PicBase(pc),a1
  235.     Bsr    Copy
  236.     
  237.     Move.l    PicBase(pc),a1
  238.     Lea    $cc(a1),a1
  239.     Move.w    #281,d7
  240. CopyBSLoop    Move.w    #12,d0
  241.     Lea    CopBit(pc),a0
  242.     Bsr    Copy
  243.     Add.l    #24,a1
  244.     Dbf    d7,CopyBSLoop
  245.     
  246.     Move.w    #10,d0
  247.     Lea    EndCop(pc),a0
  248.     Bsr    Copy
  249.     Rts
  250.  
  251. KillSys    Bsr    SysWait
  252.     Move.l    $4,a6            
  253.     Lea    GFXLibName(pc),a1
  254.     Moveq    #0,d0
  255.     Jsr    -552(a6)
  256.     Lea    OldCopper(pc),a5
  257.     Move.l    $26(a0),(a5)
  258.     Lea    $Dff000,a6
  259.     Move.w    IntEnaR(a6),d0
  260.     Move.w    DMAConR(a6),d1
  261.     Or.w    #$8000,d0
  262.     And.w    #$03ff,d1
  263.     Or.w    #$8000,d1
  264.     Move.w    #$7fff,IntEna(a6)
  265.     Move.w    #$7fff,DMACon(a6)
  266.     Move.w    d0,$4(a5)
  267.     Move.w    d1,$6(a5)
  268.     Bset    #1,$Bfe001
  269.     Rts
  270.  
  271. SysWait    Move.w    #15,d7
  272. SWLoop1    Move.w    #$1000,d0
  273. SWLoop2    Move.w    d0,$Dff182
  274.     Move.w    d7,$Dff180
  275.     Dbf    d0,SWLoop2
  276.     Dbf    d7,SWLoop1
  277.     Rts
  278.  
  279. ReturnSys    Lea    $Dff000,a6
  280.     Move.w    OldIntEna(pc),IntEna(a6)
  281.     Move.w    OldDMACon(pc),DMACon(a6)
  282.     Move.l    OldCopper(pc),Cop1lc(a6)
  283.     Bclr    #1,$Bfe001
  284.     Moveq    #0,d0
  285.     Rts
  286.  
  287. SetCopWaits    Move.l    PicBase(pc),a0
  288.     Lea    $cc(a0),a0
  289.     Lea    20(a0),a0
  290.     Move.w    #$1f,d0
  291.     Move.w    #281,d1
  292. CWaitLoop    Add.w    #1,d0
  293.     Move.b    d0,(a0)
  294.     Cmpi.w    #$100,d0
  295.     Bne    ConCop
  296.     Move.w    #$ffd9,(a0)
  297.     Move.w    #0,d0
  298.     
  299. ConCop    Lea    24(a0),a0
  300.     Dbf    d1,CWaitLoop
  301.     Rts
  302.     
  303. SetBMaps    And.w    #$ff,d0
  304.     
  305.     Moveq    #0,d1
  306.     Move.w    d0,d1
  307.     Asr.w    #3,d1
  308.     Bclr    #0,d1
  309.     Add.l    d1,a0
  310.     Asl.w    #8,d0
  311.     Asl.w    #4,d0
  312.     Move.w    #$f000,d2
  313.     Sub.w    d0,d2
  314.     Move.w    d2,d0
  315.     And.w    #$f000,d0
  316.     Or.w    #$09f0,d0
  317.     
  318.     Lea    $Dff000,a6
  319.     Bsr    BWait
  320.     Move.l    a0,BltApth(a6)
  321.     Move.l    a1,BltDpth(a6)
  322.     Move.w    #0,BltAMod(a6)    
  323.     Move.w    #0,BltDMod(a6)    
  324.     Move.l    #$ffffffff,BltAFWM(a6)
  325.     Move.w    d0,BltCon0(a6)
  326.     Move.w    #0,BltCon1(a6)
  327.     Move.w    #(1*64)+32,BltSize(a6)
  328.     Rts
  329.     
  330. TrackMouse    Lea    $Dff000,a6
  331.     Move.w    Joy0Dat(a6),d0
  332.     Lea    OldX(pc),a3
  333.     Lea    XPos(pc),a4
  334.     Move.b    0(a3),d1
  335.     Move.b    d0,0(a3)
  336.     Sub.b    d0,d1
  337.     Ext.w    d1
  338.     Sub.w    d1,0(a4)
  339.     
  340.     Lsr.w    #8,d0
  341.     Move.b    1(a3),d1
  342.     Move.b    d0,1(a3)
  343.     Sub.b    d0,d1
  344.     Ext.w    d1
  345.     Sub.w    d1,2(a4)
  346.     
  347.     Move.w    0(a4),d0
  348.     Move.w    2(a4),d1
  349.     Asr.w    #4,d0
  350.     Asr.w    #4,d1
  351.     Rts
  352.  
  353. GFXLibName    Dc.b    "graphics.library",0,0,0,0
  354. OldCopper    Dc.l    0
  355. OldIntEna    Dc.w    0
  356. OldDmaCon    Dc.w    0
  357. OldX    Dc.b    0
  358. OldY    Dc.b    0
  359. XPos    Dc.w    0
  360. YPos    Dc.w    0
  361. PicBase    Dc.l    0
  362. XPos0    Dc.w    0
  363. YPos0    Dc.w    0
  364. XPos1    Dc.w    0
  365. YPos1    Dc.w    0
  366. XPos2    Dc.w    0
  367. YPos2    Dc.w    0
  368. XPos3    Dc.w    0
  369. YPos3    Dc.w    0
  370. XPos4    Dc.w    0
  371. YPos4    Dc.w    0
  372.  
  373. Cmv    Macro
  374.     Dc.w    \2,\1
  375.     EndM
  376.     
  377. Cwt    Macro
  378.     Dc.w    (\1*$100)+$01,$fffe
  379.     EndM    
  380.  
  381. Pal    Macro
  382.     Dc.w    $ffd9,$fffe
  383.     EndM    
  384.  
  385. EndCop    Macro
  386.     Dc.w    $ffff,$fffe
  387.     EndM    
  388.  
  389. DatP    Macro    
  390.     Dc.w    $e2+(\1*4),(\2-((\2/$10000)*$10000))
  391.     EndM
  392.  
  393. CopBit    Cmv    $0000,BplPt0l
  394.     Cmv    $0000,BplPt1l
  395.     Cmv    $0000,BplPt2l
  396.     Cmv    $0000,BplPt3l
  397.     Cmv    $0000,BplPt4l
  398.     Cwt    $31
  399.  
  400. CopperList1    Cwt    $14
  401.     Cmv    $0200,BplCon0
  402.     Cmv    $0000,BplCon1
  403.     Cmv    $000a,BplCon2
  404.     Cmv    $0030,DdfStrt
  405.     Cmv    $00d2,DdfStop
  406.     Cmv    $1611,DiwStrt
  407.     Cmv    $36f1,DiwStop
  408.     Cmv    $0002,BplMod1
  409.     Cmv    $0002,BplMod2
  410.     Cwt    $15
  411. CopperCOLS    Cmv    $0000,Color00
  412.     Cmv    $0111,Color01
  413.     Cmv    $0222,Color02
  414.     Cmv    $0333,Color03
  415.     Cmv    $0444,Color04
  416.     Cmv    $0555,Color05
  417.     Cmv    $0666,Color06
  418.     Cmv    $0777,Color07
  419.     Cmv    $0888,Color08
  420.     Cmv    $0999,Color09
  421.     Cmv    $0aaa,Color10
  422.     Cmv    $0bbb,Color11
  423.     Cmv    $0ccc,Color12
  424.     Cmv    $0ddd,Color13
  425.     Cmv    $0eee,Color14
  426.     Cmv    $0fff,Color15
  427.     Cmv    $0fff,Color16
  428.     Cmv    $0eef,Color17
  429.     Cmv    $0ddf,Color18
  430.     Cmv    $0ccf,Color19
  431.     Cmv    $0bbf,Color20
  432.     Cmv    $0aaf,Color21
  433.     Cmv    $099f,Color22
  434.     Cmv    $088f,Color23
  435.     Cmv    $077f,Color24
  436.     Cmv    $066f,Color25
  437.     Cmv    $055f,Color26
  438.     Cmv    $044f,Color27
  439.     Cmv    $033f,Color28
  440.     Cmv    $022f,Color29
  441.     Cmv    $011f,Color30
  442.     Cmv    $000f,Color31
  443. DKX    Cmv    $000b,BplPt0h
  444.     Cmv    $000b,BplPt1h
  445.     Cmv    $000b,BplPt2h
  446.     Cmv    $000b,BplPt3h
  447.     Cmv    $000b,BplPt4h
  448.     Cwt    $1f
  449.     Cmv    $5200,BplCon0
  450.     Cmv    $0111,Color00
  451.  
  452. EndCop    Cmv    $0200,BplCon0
  453.     Cmv    $0000,Color00    
  454.     EndCop
  455.  
  456. BP0List    
  457.     Rept    8
  458.     Datp    0,$1b34
  459.     Datp    0,$1b34
  460.     Datp    0,$1b34
  461.     Datp    0,$1b34
  462.     Datp    0,$1b34
  463.     Datp    0,$1b34
  464.     Datp    0,$1b34
  465.     Datp    0,$1b34
  466.  
  467.     Datp    0,$1b84
  468.     Datp    0,$1b84
  469.     Datp    0,$1b84
  470.     Datp    0,$1b84
  471.     Datp    0,$1b84
  472.     Datp    0,$1b84
  473.     Datp    0,$1b84
  474.     Datp    0,$1b84
  475.     EndR
  476. BP1List    
  477.     Rept    4
  478.     Datp    1,$1c34
  479.     Datp    1,$1c34
  480.     Datp    1,$1c34
  481.     Datp    1,$1c34
  482.     Datp    1,$1c34
  483.     Datp    1,$1c34
  484.     Datp    1,$1c34
  485.     Datp    1,$1c34
  486.  
  487.     Datp    1,$1c34
  488.     Datp    1,$1c34
  489.     Datp    1,$1c34
  490.     Datp    1,$1c34
  491.     Datp    1,$1c34
  492.     Datp    1,$1c34
  493.     Datp    1,$1c34
  494.     Datp    1,$1c34
  495.  
  496.     Datp    1,$1c36
  497.     Datp    1,$1c36
  498.     Datp    1,$1c36
  499.     Datp    1,$1c36
  500.     Datp    1,$1c36
  501.     Datp    1,$1c36
  502.     Datp    1,$1c36
  503.     Datp    1,$1c36
  504.  
  505.     Datp    1,$1c36
  506.     Datp    1,$1c36
  507.     Datp    1,$1c36
  508.     Datp    1,$1c36
  509.     Datp    1,$1c36
  510.     Datp    1,$1c36
  511.     Datp    1,$1c36
  512.     Datp    1,$1c36
  513.     EndR
  514. BP2List    
  515.     Rept    3
  516.     Datp    2,$1c84
  517.     Datp    2,$1c84
  518.     Datp    2,$1c84
  519.     Datp    2,$1c84
  520.     Datp    2,$1c84
  521.     Datp    2,$1c84
  522.     Datp    2,$1c84
  523.     Datp    2,$1c84
  524.     
  525.     Datp    2,$1c84    
  526.     Datp    2,$1c84
  527.     Datp    2,$1c84
  528.     Datp    2,$1c84
  529.     Datp    2,$1c84
  530.     Datp    2,$1c84
  531.     Datp    2,$1c84
  532.     Datp    2,$1c84
  533.     
  534.     Datp    2,$1c84    
  535.     Datp    2,$1c84    
  536.     Datp    2,$1c84
  537.     Datp    2,$1c84
  538.     Datp    2,$1c84
  539.     Datp    2,$1c84
  540.     Datp    2,$1c84
  541.     Datp    2,$1c84
  542.     
  543.     Datp    2,$1c84
  544.     Datp    2,$1c84
  545.     Datp    2,$1c84
  546.     Datp    2,$1c84
  547.     Datp    2,$1c84
  548.     Datp    2,$1c84
  549.     Datp    2,$1c84
  550.     Datp    2,$1c84
  551.  
  552.  
  553.  
  554.     Datp    2,$1c88
  555.     Datp    2,$1c88
  556.     Datp    2,$1c88
  557.     Datp    2,$1c88
  558.     Datp    2,$1c88
  559.     Datp    2,$1c88
  560.     Datp    2,$1c88
  561.     Datp    2,$1c88
  562.     Datp    2,$1c88
  563.     Datp    2,$1c88
  564.     Datp    2,$1c88
  565.     Datp    2,$1c88
  566.     Datp    2,$1c88
  567.     Datp    2,$1c88
  568.     Datp    2,$1c88
  569.     Datp    2,$1c88
  570.     Datp    2,$1c88
  571.     Datp    2,$1c88
  572.     Datp    2,$1c88
  573.     Datp    2,$1c88
  574.     Datp    2,$1c88
  575.     Datp    2,$1c88
  576.     Datp    2,$1c88
  577.     Datp    2,$1c88
  578.     Datp    2,$1c88
  579.     Datp    2,$1c88
  580.     Datp    2,$1c88
  581.     Datp    2,$1c88
  582.     Datp    2,$1c88
  583.     Datp    2,$1c88
  584.     Datp    2,$1c88
  585.     Datp    2,$1c88
  586.     EndR
  587. BP3List    
  588.     Rept    2
  589.     Datp    3,$1d34
  590.     Datp    3,$1d34
  591.     Datp    3,$1d34
  592.     Datp    3,$1d34
  593.     Datp    3,$1d34
  594.     Datp    3,$1d34
  595.     Datp    3,$1d34
  596.     Datp    3,$1d34
  597.     
  598.     Datp    3,$1d34
  599.     Datp    3,$1d34
  600.     Datp    3,$1d34
  601.     Datp    3,$1d34
  602.     Datp    3,$1d34
  603.     Datp    3,$1d34
  604.     Datp    3,$1d34
  605.     Datp    3,$1d34
  606.     
  607.     Datp    3,$1d34
  608.     Datp    3,$1d34
  609.     Datp    3,$1d34
  610.     Datp    3,$1d34
  611.     Datp    3,$1d34
  612.     Datp    3,$1d34
  613.     Datp    3,$1d34
  614.     Datp    3,$1d34
  615.     
  616.     Datp    3,$1d34
  617.     Datp    3,$1d34
  618.     Datp    3,$1d34
  619.     Datp    3,$1d34
  620.     Datp    3,$1d34
  621.     Datp    3,$1d34
  622.     Datp    3,$1d34
  623.     Datp    3,$1d34
  624.     
  625.     Datp    3,$1d34
  626.     Datp    3,$1d34
  627.     Datp    3,$1d34
  628.     Datp    3,$1d34
  629.     Datp    3,$1d34
  630.     Datp    3,$1d34
  631.     Datp    3,$1d34
  632.     Datp    3,$1d34
  633.     
  634.     Datp    3,$1d34
  635.     Datp    3,$1d34
  636.     Datp    3,$1d34
  637.     Datp    3,$1d34
  638.     Datp    3,$1d34
  639.     Datp    3,$1d34
  640.     Datp    3,$1d34
  641.     Datp    3,$1d34
  642.     
  643.     Datp    3,$1d34
  644.     Datp    3,$1d34
  645.     Datp    3,$1d34
  646.     Datp    3,$1d34
  647.     Datp    3,$1d34
  648.     Datp    3,$1d34
  649.     Datp    3,$1d34
  650.     Datp    3,$1d34
  651.     
  652.     Datp    3,$1d34
  653.     Datp    3,$1d34
  654.     Datp    3,$1d34
  655.     Datp    3,$1d34
  656.     Datp    3,$1d34
  657.     Datp    3,$1d34
  658.     Datp    3,$1d34
  659.     Datp    3,$1d34
  660.  
  661.     Datp    3,$1d3c
  662.     Datp    3,$1d3c
  663.     Datp    3,$1d3c
  664.     Datp    3,$1d3c
  665.     Datp    3,$1d3c
  666.     Datp    3,$1d3c
  667.     Datp    3,$1d3c
  668.     Datp    3,$1d3c
  669.     Datp    3,$1d3c
  670.     Datp    3,$1d3c
  671.     Datp    3,$1d3c
  672.     Datp    3,$1d3c
  673.     Datp    3,$1d3c
  674.     Datp    3,$1d3c
  675.     Datp    3,$1d3c
  676.     Datp    3,$1d3c
  677.     Datp    3,$1d3c
  678.     Datp    3,$1d3c
  679.     Datp    3,$1d3c
  680.     Datp    3,$1d3c
  681.     Datp    3,$1d3c
  682.     Datp    3,$1d3c
  683.     Datp    3,$1d3c
  684.     Datp    3,$1d3c
  685.     Datp    3,$1d3c
  686.     Datp    3,$1d3c
  687.     Datp    3,$1d3c
  688.     Datp    3,$1d3c
  689.     Datp    3,$1d3c
  690.     Datp    3,$1d3c
  691.     Datp    3,$1d3c
  692.     Datp    3,$1d3c
  693.     Datp    3,$1d3c
  694.     Datp    3,$1d3c
  695.     Datp    3,$1d3c
  696.     Datp    3,$1d3c
  697.     Datp    3,$1d3c
  698.     Datp    3,$1d3c
  699.     Datp    3,$1d3c
  700.     Datp    3,$1d3c
  701.     Datp    3,$1d3c
  702.     Datp    3,$1d3c
  703.     Datp    3,$1d3c
  704.     Datp    3,$1d3c
  705.     Datp    3,$1d3c
  706.     Datp    3,$1d3c
  707.     Datp    3,$1d3c
  708.     Datp    3,$1d3c
  709.     Datp    3,$1d3c
  710.     Datp    3,$1d3c
  711.     Datp    3,$1d3c
  712.     Datp    3,$1d3c
  713.     Datp    3,$1d3c
  714.     Datp    3,$1d3c
  715.     Datp    3,$1d3c
  716.     Datp    3,$1d3c
  717.     Datp    3,$1d3c
  718.     Datp    3,$1d3c
  719.     Datp    3,$1d3c
  720.     Datp    3,$1d3c
  721.     Datp    3,$1d3c
  722.     Datp    3,$1d3c
  723.     Datp    3,$1d3c
  724.     Datp    3,$1d3c
  725.     EndR
  726. BP4List    
  727.     Rept    3
  728.     Datp    4,$1d82
  729.     Datp    4,$1d82
  730.     Datp    4,$1d82
  731.     Datp    4,$1d82
  732.     Datp    4,$1d82
  733.     Datp    4,$1d82
  734.     Datp    4,$1d82    
  735.     Datp    4,$1d82
  736.         
  737.     Datp    4,$1d82
  738.     Datp    4,$1d82
  739.     Datp    4,$1d82
  740.     Datp    4,$1d82
  741.     Datp    4,$1d82
  742.     Datp    4,$1d82
  743.     Datp    4,$1d82
  744.     Datp    4,$1d82
  745.     
  746.     Datp    4,$1d82
  747.     Datp    4,$1d82
  748.     Datp    4,$1d82
  749.     Datp    4,$1d82
  750.     Datp    4,$1d82
  751.     Datp    4,$1d82
  752.     Datp    4,$1d82
  753.     Datp    4,$1d82
  754.     
  755.     Datp    4,$1d82
  756.     Datp    4,$1d82
  757.     Datp    4,$1d82
  758.     Datp    4,$1d82
  759.     Datp    4,$1d82
  760.     Datp    4,$1d82
  761.     Datp    4,$1d82
  762.     Datp    4,$1d82
  763.     
  764.     Datp    4,$1d82
  765.     Datp    4,$1d82
  766.     Datp    4,$1d82
  767.     Datp    4,$1d82
  768.     Datp    4,$1d82
  769.     Datp    4,$1d82
  770.     Datp    4,$1d82
  771.     Datp    4,$1d82
  772.     
  773.     Datp    4,$1d82
  774.     Datp    4,$1d82
  775.     Datp    4,$1d82
  776.     Datp    4,$1d82
  777.     Datp    4,$1d82
  778.     Datp    4,$1d82
  779.     Datp    4,$1d82
  780.     Datp    4,$1d82
  781.     
  782.     Datp    4,$1d82
  783.     Datp    4,$1d82
  784.     Datp    4,$1d82
  785.     Datp    4,$1d82
  786.     Datp    4,$1d82
  787.     Datp    4,$1d82
  788.     Datp    4,$1d82    
  789.     Datp    4,$1d82
  790.     
  791.     Datp    4,$1d82
  792.     Datp    4,$1d82
  793.     Datp    4,$1d82
  794.     Datp    4,$1d82
  795.     Datp    4,$1d82
  796.     Datp    4,$1d82
  797.     Datp    4,$1d82
  798.     Datp    4,$1d82
  799.     
  800.     Datp    4,$1d82
  801.     Datp    4,$1d82
  802.     Datp    4,$1d82
  803.     Datp    4,$1d82
  804.     Datp    4,$1d82
  805.     Datp    4,$1d82
  806.     Datp    4,$1d82
  807.     Datp    4,$1d82
  808.     
  809.     Datp    4,$1d82
  810.     Datp    4,$1d82
  811.     Datp    4,$1d82
  812.     Datp    4,$1d82
  813.     Datp    4,$1d82
  814.     Datp    4,$1d82
  815.     Datp    4,$1d82
  816.     Datp    4,$1d82
  817.     
  818.     Datp    4,$1d82
  819.     Datp    4,$1d82
  820.     Datp    4,$1d82
  821.     Datp    4,$1d82
  822.     Datp    4,$1d82
  823.     Datp    4,$1d82
  824.     Datp    4,$1d82
  825.     Datp    4,$1d82
  826.     
  827.     Datp    4,$1d82
  828.     Datp    4,$1d82
  829.     Datp    4,$1d82
  830.     Datp    4,$1d82
  831.     Datp    4,$1d82
  832.     Datp    4,$1d82
  833.     Datp    4,$1d82
  834.     Datp    4,$1d82
  835.     
  836.     Datp    4,$1d82
  837.     Datp    4,$1d82
  838.     Datp    4,$1d82
  839.     Datp    4,$1d82
  840.     Datp    4,$1d82
  841.     Datp    4,$1d82
  842.     Datp    4,$1d82
  843.     Datp    4,$1d82
  844.     
  845.     Datp    4,$1d82
  846.     Datp    4,$1d82
  847.     Datp    4,$1d82
  848.     Datp    4,$1d82
  849.     Datp    4,$1d82
  850.     Datp    4,$1d82
  851.     Datp    4,$1d82
  852.     Datp    4,$1d82
  853.     
  854.     Datp    4,$1d82
  855.     Datp    4,$1d82
  856.     Datp    4,$1d82
  857.     Datp    4,$1d82
  858.     Datp    4,$1d82
  859.     Datp    4,$1d82
  860.     Datp    4,$1d82
  861.     Datp    4,$1d82
  862.     
  863.     Datp    4,$1d82
  864.     Datp    4,$1d82
  865.     Datp    4,$1d82
  866.     Datp    4,$1d82
  867.     Datp    4,$1d82
  868.     Datp    4,$1d82
  869.     Datp    4,$1d82
  870.     Datp    4,$1d82
  871.  
  872.  
  873.     Datp    4,$1d92
  874.     Datp    4,$1d92
  875.     Datp    4,$1d92
  876.     Datp    4,$1d92
  877.     Datp    4,$1d92
  878.     Datp    4,$1d92
  879.     Datp    4,$1d92
  880.     Datp    4,$1d92
  881.     Datp    4,$1d92
  882.     Datp    4,$1d92
  883.     Datp    4,$1d92
  884.     Datp    4,$1d92
  885.     Datp    4,$1d92
  886.     Datp    4,$1d92
  887.     Datp    4,$1d92
  888.     Datp    4,$1d92
  889.     Datp    4,$1d92
  890.     Datp    4,$1d92
  891.     Datp    4,$1d92
  892.     Datp    4,$1d92
  893.     Datp    4,$1d92
  894.     Datp    4,$1d92
  895.     Datp    4,$1d92
  896.     Datp    4,$1d92
  897.     Datp    4,$1d92
  898.     Datp    4,$1d92
  899.     Datp    4,$1d92
  900.     Datp    4,$1d92
  901.     Datp    4,$1d92
  902.     Datp    4,$1d92
  903.     Datp    4,$1d92
  904.     Datp    4,$1d92
  905.     Datp    4,$1d92
  906.     Datp    4,$1d92
  907.     Datp    4,$1d92
  908.     Datp    4,$1d92
  909.     Datp    4,$1d92
  910.     Datp    4,$1d92
  911.     Datp    4,$1d92
  912.     Datp    4,$1d92
  913.     Datp    4,$1d92
  914.     Datp    4,$1d92
  915.     Datp    4,$1d92
  916.     Datp    4,$1d92
  917.     Datp    4,$1d92
  918.     Datp    4,$1d92
  919.     Datp    4,$1d92
  920.     Datp    4,$1d92
  921.     Datp    4,$1d92
  922.     Datp    4,$1d92
  923.     Datp    4,$1d92
  924.     Datp    4,$1d92
  925.     Datp    4,$1d92
  926.     Datp    4,$1d92
  927.     Datp    4,$1d92
  928.     Datp    4,$1d92
  929.     Datp    4,$1d92
  930.     Datp    4,$1d92
  931.     Datp    4,$1d92
  932.     Datp    4,$1d92
  933.     Datp    4,$1d92
  934.     Datp    4,$1d92
  935.     Datp    4,$1d92
  936.     Datp    4,$1d92
  937.     Datp    4,$1d92
  938.     Datp    4,$1d92
  939.     Datp    4,$1d92
  940.     Datp    4,$1d92
  941.     Datp    4,$1d92
  942.     Datp    4,$1d92
  943.     Datp    4,$1d92
  944.     Datp    4,$1d92
  945.     Datp    4,$1d92
  946.     Datp    4,$1d92
  947.     Datp    4,$1d92
  948.     Datp    4,$1d92
  949.     Datp    4,$1d92
  950.     Datp    4,$1d92
  951.     Datp    4,$1d92
  952.     Datp    4,$1d92
  953.     Datp    4,$1d92
  954.     Datp    4,$1d92
  955.     Datp    4,$1d92
  956.     Datp    4,$1d92
  957.     Datp    4,$1d92
  958.     Datp    4,$1d92
  959.     Datp    4,$1d92
  960.     Datp    4,$1d92
  961.     Datp    4,$1d92
  962.     Datp    4,$1d92
  963.     Datp    4,$1d92
  964.     Datp    4,$1d92
  965.     Datp    4,$1d92
  966.     Datp    4,$1d92
  967.     Datp    4,$1d92
  968.     Datp    4,$1d92
  969.     Datp    4,$1d92
  970.     Datp    4,$1d92
  971.     Datp    4,$1d92
  972.     Datp    4,$1d92
  973.     Datp    4,$1d92
  974.     Datp    4,$1d92
  975.     Datp    4,$1d92
  976.     Datp    4,$1d92
  977.     Datp    4,$1d92
  978.     Datp    4,$1d92
  979.     Datp    4,$1d92
  980.     Datp    4,$1d92
  981.     Datp    4,$1d92
  982.     Datp    4,$1d92
  983.     Datp    4,$1d92
  984.     Datp    4,$1d92
  985.     Datp    4,$1d92
  986.     Datp    4,$1d92
  987.     Datp    4,$1d92
  988.     Datp    4,$1d92
  989.     Datp    4,$1d92
  990.     Datp    4,$1d92
  991.     Datp    4,$1d92
  992.     Datp    4,$1d92
  993.     Datp    4,$1d92
  994.     Datp    4,$1d92
  995.     Datp    4,$1d92
  996.     Datp    4,$1d92
  997.     Datp    4,$1d92
  998.     Datp    4,$1d92
  999.     Datp    4,$1d92
  1000.     Datp    4,$1d92
  1001.     EndR
  1002.     
  1003. BMap0    
  1004.     Rept    20
  1005.     Dc.w    $00ff,$00ff
  1006.     Endr
  1007. BMap5    
  1008.     Rept    20
  1009.     Dc.w    $ff00,$ff00
  1010.     Endr
  1011. BMap1    
  1012.     Rept    20
  1013.     Dc.w    $ffff,$0000
  1014.     Endr
  1015. BMap2    
  1016.     Rept    10
  1017.     Dc.w    $ffff,$ffff,$0000,$0000
  1018.     Endr
  1019. BMap3        
  1020.     Rept    10
  1021.     Dc.l    $ffffffff,$ffffffff
  1022.     Dc.l    $00000000,$00000000    
  1023.     Endr
  1024. BMap4    
  1025.     Rept    5
  1026.     Dc.l    $ffffffff,$ffffffff
  1027.     Dc.l    $ffffffff,$ffffffff
  1028.     Dc.l    $00000000,$00000000    
  1029.     Dc.l    $00000000,$00000000    
  1030.     Endr
  1031.     
  1032. ****Custom Chip Registers****
  1033.  
  1034. ;Control Registers
  1035.  
  1036. Dmaconr    = $002
  1037. Vposr    = $004
  1038. Vhposr    = $006
  1039. Joy0dat    = $00A
  1040. Joy1dat    = $00C
  1041. Clxdat    = $00E
  1042. Intenar    = $01C
  1043. Intereqr    = $01E
  1044. Copcon    = $02E
  1045.  
  1046. ;Blitter Registers
  1047.  
  1048. Bltcon0    = $040
  1049. Bltcon1    = $042
  1050. Bltafwm    = $044
  1051. Bltalwm    = $046
  1052. Bltcpth    = $048
  1053. Bltcptl    = $04A
  1054. Bltbpth    = $04C
  1055. Bltbptl    = $04E
  1056. Bltapth    = $050
  1057. Bltaptl    = $052
  1058. Bltdpth    = $054
  1059. Bltdptl    = $056
  1060. Bltsize    = $058
  1061. Bltcmod    = $060
  1062. Bltbmod    = $062
  1063. Bltamod    = $064
  1064. Bltdmod    = $066
  1065. Bltcdat    = $070
  1066. Bltbdat    = $072
  1067. Bltadat    = $074
  1068.  
  1069. ;Copper Registers
  1070.  
  1071. Cop1lc    = $080
  1072. Cop1lch    = $080
  1073. Cop1lcl    = $082
  1074. Cop2lc    = $084
  1075. Cop2lch    = $084
  1076. Cop2lcl    = $086
  1077. Copjmp1    = $088
  1078. Copjmp2    = $08A
  1079. Diwstrt    = $08E
  1080. Diwstop    = $090
  1081. Ddfstrt    = $092
  1082. Ddfstop    = $094
  1083. Dmacon    = $096
  1084. Clxcon    = $098
  1085. Intena    = $09A
  1086. Intreq    = $09C
  1087.  
  1088. ;BitPlane Registers 
  1089.  
  1090. BplCon0    = $100
  1091. BplCon1    = $102
  1092. BplCon2    = $104
  1093. BplMod1    = $108
  1094. BplMod2    = $10a
  1095.  
  1096. BplPt0h    = $0e0
  1097. BplPt0l    = $0e2
  1098. BplPt1h    = $0e4
  1099. BplPt1l    = $0e6
  1100. BplPt2h    = $0e8
  1101. BplPt2l    = $0ea
  1102. BplPt3h    = $0ec
  1103. BplPt3l    = $0ee
  1104. BplPt4h    = $0f0
  1105. BplPt4l    = $0f2
  1106. BplPt5h    = $0f4
  1107. BplPt5l    = $0f6
  1108.  
  1109. ;Colorour Registers
  1110.  
  1111. Color00    = $180
  1112. Color01    = $182
  1113. Color02    = $184
  1114. Color03    = $186
  1115. Color04    = $188
  1116. Color05    = $18a
  1117. Color06    = $18c
  1118. Color07    = $18e
  1119. Color08    = $190
  1120. Color09    = $192
  1121. Color10    = $194
  1122. Color11    = $196
  1123. Color12    = $198
  1124. Color13    = $19a
  1125. Color14    = $19c
  1126. Color15    = $19e
  1127. Color16    = $1a0
  1128. Color17    = $1a2
  1129. Color18    = $1a4
  1130. Color19    = $1a6
  1131. Color20    = $1a8
  1132. Color21    = $1aa
  1133. Color22    = $1ac
  1134. Color23    = $1ae
  1135. Color24    = $1b0
  1136. Color25    = $1b2
  1137. Color26    = $1b4
  1138. Color27    = $1b6
  1139. Color28    = $1b8
  1140. Color29    = $1ba
  1141. Color30    = $1bc
  1142. Color31    = $1be
  1143.  
  1144.  
  1145.  
  1146.  
  1147.  
  1148.